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IDENTIFICATION 


PRODUCT CODE: AC~8954E -MC 

PRODUCT NAME : CZM9AEC BOOTSTRAP/TERMINATOR (M9301, M9400) 
PROGRAM DATE: APRIL, 1979 

MAINTAINER: DIAGNOSTIC ENGINEERING 
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THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE wITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT RY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MMAY APPEAR IN THIS DOCUMENT 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1976, 1979 BY DIGITAL EQUIPMENT CORPORATION 
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* SUMMARY OF OPERATING INSTRUCTIONS * 
° * 
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THE FOLLOWING PROCEDURE CAN BE USED TO RUN THIS DIAGNOSTIC 
IN A DEVICE VERIFICATION MODE. IF THE PROGRAM DOES NOT 
RUN SUCCESSFULLY CONSULT THE FOLLOWING DOCUMENT FOR ASSISTANCE. 


OPERATING PROCEDURE : 
1. LOAD THE PROGRAM USING NORMAL PROCEDURES. 
2. LOAD ADDRESS 200 


3. SET SWITCH REGISTER TO SELECT THE PROPER 
VERSION OF THE ROM UNDER T 
(SEE ate he se IF A SOFTWARE SWITCH REGISTER 
IS TO BE USED.) 


4. PRESS START 


5. THE PROGRAM SHOULD TAKE ABOUT 1 SEC TO 
COMPLETE THE TEST AND PRINT: ‘END OF TEST’’. 


6. IF THE PROGRAM DOES NOT RUN AS DESCRIBED 
ABOVE, CONSULT THE FULL OPERATING INSTRUCTIONS 
WHICH FOLLOW. 


* * (CAUTION * * 


BECAUSE THE CONTENTS READ FROM LOCATION 773024 

OF THE M9301 OPTION IS CONFIGURATION DEPENDANT (SWITCH 
REGISTER DEPENDANT), THIS LOCATION IS NOT INCLUDED IN 

THE DATA CHECK. 

THIS LOCATION CAN BE VERIFIED BY EXAMINING IT OR BY USING 
THE ALTERNATE STARTING rages eens SECTION 2.1.3) TO 
PRINT OUT THIS LOCATION 


SEQ 0002 


: 


MACY11 RS 1 ate 10:14 PAGE 4 
7=APR-79 10:12 


1.0 GENERAL PROGRAM INFORMATION 


1.1 PROGRAM PURPOSE 


THIS DIAGNOSTIC PROGRAM IS perere TO VERIFY THE 

ROM CONTENTS OF THE ROM BOOTSTRAP MODULES. THE PROGRAM 
COMPUTES AND CHECKS A CYCLIC REDUNDANCY CHARACTER 

AND A LONGITUDINAL PARITY CHARACTER FOR THE CONTENTS 

OF THE ROM STORAGE AVAILABLE IN AN M9301 OR M9400 MODULE. 


A SEPARATE ROUTINE INCLUDED ALLOWS THE USER TO TYPE 
THE CONTENTS OF THE ROM STORAGE ON THE TELETYPE AS 
AN AID TO DEBUGGING. 


SYSTEM REQUIREMENTS 


PDP/11 PROCESSOR 
TELETYPE OR EQUIVALENT 


4K OF MEMORY 
M9301 OR M9400 MODULE 


THIS PROGRAM IS WRITTEN TO BE RUN AS A STAND-ALONE PROGRAM. 
HOWEVER, THE PROGRAM IS DESIGNED TO RUN UNDER AUTOMATED 
PRODUCT TEST SYSTEM (APT) IN ALL THREE MODES. 

THE PROGRAM CAN ALSO BE RUN UNDER THE ACT 17 MONITOR. 


RELATED DOCUMENTS AND STANDARDS 


WVVISHBNE AERA ASSRIRARALLSSSLKSRAG EL 


1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 


DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS PROGRAMMING PRACTICES 
DOCUMENT NO. 175-003-009-00 


APT INTERFACE SPECIFICATION, REV. 13 
DIAGNOSTIC HIERARCHY PREREQUISITES 
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NONE, HOWEVER THE CPU IS ASSUMED TO BE FUNCTIONING 
FAILURE ASSUMPTIONS 


THE PROCESSOR IS ASSUMED TO BE FUNCTIONING PROPERLY. 
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2.0 OPERATING INSTRUCTIONS 
2.1 LOADING AND STARTING PROCEDURES 
2.1.1 LOADING 
USE NORMAL PROCEDURES FOR LOADING DIAGNOSTIC PROGRAMS. 
2.1.2 NORMAL START 
1. LOAD SOFTWARE SWITCH REGISTER (IF USED) TO SELECT THE 
FOM VERSION UNDER TEST. (SEE 2.3) 
2. LOAD ADDRESS 200 
3. SET HARDWARE SWITCH REGISTER (IF AVAILABLE) TO SELECT TYE 
ROM VERSION UNDER TEST (SEE 2.3). 
4. START 
2.1.3 OPTIONAL START 
THE OPTIONAL STARTING ADDRESS IS USED TO TYPE OUT THE CONTENTS 
Ring ROM FOR USE IN VISUAL VERIFICATION OR AS A DEBUGGING 
USE THE SAME PROCEDURE AS A NORMAL START EXCEPT USE 
ADDRESS 210 IN STEP 2. 
2.2 SPECIAL ENVIRONMENTS 


THIS PROGRAM IS WRITTEN TO COMPLY WITH ALL THE REQUIREMENTS 
OF THE APT INTERFACE SPECIFICATION. IT WILL RUN UNDER APT 
IN EITHER QUICK VERIFY, PROGRAM OR RUN-TIME MODES. 


THIS PROGRAM IS WRITTEN TO COMPLY WITH THE ACT11/XxXDP 
INTERFACE REQUIREMENTS. 


WHEN RUNNING IN ACT11 QUICK VERIFY OR XXDP CHAIN MODE 
(LOC. 42 NOT 0), OR APT QUICK VERIFY AND PROGRAM MODE 

THE PROGRAM ATTEMPTS TO RUN WITHOUT OPERATOR 
INTERVENTION OR SWITCH REGISTER SELECTION. THE 

COMPUTED CRC_ IS COMPARED AGAINST THE CRC FOR ALL KNOWN 
VERSIONS OF THE ROM BOOTSTRAP. WHEN A MATCH IS FOUND THE 
VERSION OF THE MODULE IS TYPED FOR VISUAL VERIFICATION, 


SEQ 0004 | 
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2.3 PROGRAM OPTIONS 


THE PROGRAM AUTOMATICALLY CHECKS FOR THE PRESENCE OF 

A HARDWARE SWITCH REGISTER. IF NO RESPONSE IS FOUND WHEN 
ADDRESSING THE HARDWARE SWR (177570), THE ADDRESS 

OF THE SOFTWARE SWR (176) IS SUBSTITUTED. 


FOR PROCESSORS WITH NO HARDWARE SWITCH REGISTER, THE OPERATOR 
SHOULD SET THE DESIRED SWITCH VALUE IN LOCATION 176 


WARNING... IN ORDER TO ALLOW TESTING OF M7942-YB BOARDS ON THE VI71, 
IF LOCATION 176 IS SET TO 5, THE SOFTWARE SWITCH REGISTER WILL BE 
USED REGARDLESS OF HARDWARE SWITCH REGISTER AVAILABILITY. 


SWITCH SELECTION 

THE SWITCH REGISTER (HARDWARE OR SOFTWARE) IS USED TO SELECT 
THE VERSION OF THE ROM BOOTSTRAP TO BE TESTED 

ACCORDING TO THE FOLLOWING TABLE. NOTE: THESE SETTINGS ARE 
OCTAL NUMBERS. THEY ARE NOT PARTICULAR SWITCHES SET TO A 
ONE. FOR EXAMPLE, TO SELECT THE M9301-YH VERSION, SET 
SWITCHES #3 AND #1 IN THE SWITCH REGISTER. THIS 

CORRESPONDS TO AN OCTAL 12. 


SWR MODULE VERSION 


ee ee ee et oe St 
ODONAWE WHO 


REVISION * === SEE NOTE BELOW --- 


1 
2 
3 
4 
5 
6 
7 
1 
: 
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0 
1 
2 
3 
4 
5 
6 


N 
M9311 REVISION A *** SEE NOTE BELOW *** 


FOR M9311 ONLY 
IF ROM IN LOCATION E-5 IS #23-524A9 , THEN 
YOU HAVE REVISION *, (J1.E. USE SWR 11 SETTING) 


IF ROM IN LOCATION E-5 IS #23-688A9 , THEN 
YOU HAVE REVISION A .( I.E. USE SWR 16 SETTING) 


IF THE CRC AND LPC FOR NEW VERSIONS ARE KNOWN BUT 
NOT IN THE ABOVE TABLE, SET THE SWITCH REGISTER TO ZERO 
AND ANSWER THE TELETYPE DIALOG. 
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TO DETERMINE THE CRC AND LPC FOR A NEW tet START 
THE typgs! IC AT 200 WITH SWR=0. ANSWER 0 TO THE 
REGUESTS FOR THE LPC AND CRC. THE RESULTING MESSAGES 
WILL INDICATE THE CORRECT FUTURE RESPONSES FOR CRC AND 
LPC PROVIDED THE TEST IS RUN ON A KNOWN=GOOD MODULE. 


TELETYPE DIALOG 


SEVERAL QUESTIONS ARE ASKED OF THE OPERATOR IN ORDER 

TO OBTAIN SUFFICIENT INFORMATION FOR TESTING A ROM MODULE 
NOT PREVIOUSLY SUPPORTED IN THE DIAGNOSTIC. THE DIALOG 
IS INITIATED IF THE PROGRAM IS STARTED WITH THE SWR = 0. 
ALL RESPONSES ARE IN OCTAL AND TERMINATED BY A 

CARRIAGE RETURN. 


ALL Bg tyre ARE CHECKED FOR VALID OCTAL NUMBERS. 

IF AN ILLEGAL CHARACTER IS TYPED, THE PROGRAM WILL TYPE 
A '"?'*, CARRIAGE RETURN=LINE FEED AND 

AWAIT THE PROPER INPUT. 


IF A MISTAKE IS NOTICED BEFORE THE CARRIAGE RETURN IS USED 
TO TERMINATE THE INPUT, A RUBOUT CAN BE 
USED TO DELETE MISTYPED INPUT. 


1, TYPE CRC VALUE: 

THIS REQUESTS THE VALUE OF THE CYCLIC REDUNDANCY CHECK 
PREVIOUSLY CALCULATED FOR THIS VERSION OF THE ROM MODULE. 
IT IS _ THE VALUE AGAINST WHICH THE UNIT UNDER TESTS CRC 
WILL BE COMPARED. 


2. TYPE LPC VALUE: 

THIS REQUESTS THE VAULE OF THE LONGITUDINAL PARITY CHECK 
PREVIOUSLY CALCULATED FOR THIS VERSION OF THE ROM MODULE. 
IT JS _THE VALUE AGAINST WHICH THE UNIT UNDER TEST’S LPC 
WILL BE COMPARED. 


3. TYPE STARTING ADDR. OF 1ST ROM ADDR. SPACE: 

THIS QUESTION REFERS TO THE FACT THAT THE ROM SPACE IN 

AROM BOOTSTRAP MODULE IS DIVIDED INTO 2 DISTINCT ADDRESS SPACES. TYPE 
THE STARTING ADDRESS OF THE 1ST RANGE OF ADDRESSES. THE 

STANDARD M9301 & M9400 BEGIN AT 173000. 


4. TYPE LENGTH (BYTES) OF 1ST ROM ADDR. SPACE: 
oy REQUESTS THE LENGTH OF THE 1ST GROUP OF ROM ADDRESSES 
DARD M9301 & M9400 HAVE AN INITIAL ADDRESS SPACF 
- _IF THIS SECTION OF ADDRESSES IS NOT 
USED BY THIS VERSION, ANSWER 0 TO THIS QUESTION. 


5. TYPE STARTING ADDR. OF 2ND ROM ADDR. SPACE: 
i REFERS TO THE FIRST ADDRESS IN THE SECOND DISTINCT 
OUP OF ROM ADDRESSES. THE RESPONSE FOR A STANDARD 
M0301 & M9400 WOULD BE 165000. 
6. TYPE LENGTH (BYTES) OF 2ND ROM ADDR. SPACE: 
THIS REQUESTS THE LENGTH OF THE 2ND GROUP OF ROM ADDRESSES 
IN BYTES. THE STANDARD M9301 & M9400 HAVE A SECOND ADDRESS SPACE 
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OF 1000 BYTES. IF THIS SECTION OF ADDRESSES IS NOT USED 
BY THIS VERSION, ANSWER 0 TO THIS QUESTION. 


EXECUTION TIMES 


THE DIAGNOSTIC COMPLETES 1 PASS IN LESS THAN 1 SEC. 

ONCE THE INPUT DIALOG HAS BEEN COMPLETED. 

THE PROGRAM WILL HALT UPON COMPLETION; HOWEVER, IF RUNNING 
UNDER APT THE PROGRAM WILL CYCLE CONTINUOUSLY. 
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3.0 


4.9 


5.0 


ERROR INF ORMAT ON 


WHEN THE DIAGNOSTIC DETECTS A DISCREPANCY BETWEEN THE 
EXPECTED AND COMPUTED CRC OR LPC BOTH ARE PRINTED 
ON THE TELETYPE. 


ANY DISCREPANCY IN THE LPC CAN ASSIST IN ISOLATING THE 
PROBLEM TO THE ROM IC. 


UNDER APT THE ERROR IS INDICATED BY DEPOSITING ERROR INFORMATION 
IN THE APT MAILBOX BEFORE HALTING. 


PROGRESS REPORTS 


AT THE END OF EACH PASS THE PROGRAM INCREMENTS TO THE 
LOCATION $PASS WHICH IS IN THE APT MAILBOX. THIS 
LOCATION WILL ALWAYS CONTAIN THE NUMBER OF PASSES 
COMPLETED. $PASS IS RESET WITH EVERY RESTART. 


ADDITIONALLY, THE MESSAGE ‘END OF TEST’' IS PRINTED ON THE CONSOLE 
TELETYPE AFTER EACH PASS. NORMALLY ONLY ONE PASS NEEDS 
TO RUN TO VERIFY THE MODULE. 


TROUBLE SHOOTING 


THE ALGORITHM FOR COMPUTING THE CRC IS THE SAME AS THAT 
USED ON 9=TRACK MAGNETIC TAPE WITH ODD PARITY. 

CRC IS CALCULATED ON A BYTE-BY-BYTE BASIS. WHILE iHE 
ALGORITHM IS SUCCESSFUL IN DETECTING MULTIPLE ERRORS, ITS 
USE AS A DEBUGGING AID IS LIMITED. 


THE LPC IS CALCULATED BY ASSEMBLING THE XOR OF EVERY 

WORD IN THE ROM. WHILE ONLY USEFUL IN CATCHING AN 

ODD NUMBER OF ERRORS IN EACH BIT POSITION, IT IS VERY 

USEFUL _IN ISOLATING THE PROBLEM TO A CHIP. BY LOCATING WHICH 
BIT POSITIONS ARE IN DISCREPANCY, THE CORRESPONDING ROM 

CHIPS CAN BE ISOLATED. 


IF NO OTHER CLUES CAN BE OBTAINED, START THE PROGRAM 
AT 210 AND COMPARE THE PRINTOUT OF THE CODE WITH THE 
LISTING FOR THE VERSION BEING TESTED. 


* * CAUTION * * 


BECAUSE THE CONTENTS READ FROM LOCATION 773024 

OF THE M9301 OPTION IS CONFIGURATION DEPENDANT (SWITCH 
REGISTER DEPENDANT), THIS LOCATION IS NOT INCLUDED IN 

THE DATA CHECK 

THIS LOCATION CAN BE VERIFIED BY EXAMINING IT OR BY USING 
THE ALTERNATE STARTING ADDRESS(SEE SECTION 2.1.3) TO 
PRINT OUT THIS LOCATION. 


SEQ 0008 


MAIN, MACY11? 30A(1052) 17*APR=79 10:14 PAGE 10 
CZ7M9AE P11 17=APR=79 10:12 SEQ 0009 


379 : 6.0 LISTING 


-MAIN. MACY11 30A(1052) 2 alain 10:14 PAGE 11 
CZ7M9AE .P11 17=APR=79 10:12 


ABS 

ME 

MC MD , CND 

BASIC DEFINITIONS 


cia. hae OF THE STACK POINTER *** 1100 *«* 
-EQUIV EMT,ERROR ;sBASIC DEFINITION OF ERROR CALL 
“EQUIV I0T. SCOPE : BASIC DEFINITION OF SCOPE CALL 


poe tte DEF INITIONS 
000011 11 ::CODE FOR HORIZONTAL TAB 
000012 :;CODE FOR LINE FEED 
00015 15 :;CODE FOR CARRIAGE RETUR 
000200 00 ;:CODE FOR CARRIAGE RETURN=L INE FEED 
177776 : PROCESSOR STATUS WORD 


177774 ;sSTACK LIMIT REGISTER 
; ;PROGRAM INTERRUPT REQUEST REGISTER 
; sHARDWARE SWITCH REGISTER 
177570 ; sHARDWARE DISPLAY REGISTER 


3 *GENERAL PURPOSE REGISTER DEF INITIONS 

RO= %0 NERAL REGISTER 
1 “IGE REGISTER 
42 33 REGISTER 
%3 3 REGISTER 
44 ss REGISTER 
“5 a 

%6 

47 ; GEN 

%6 2 STACK POINTER 

%7 PROGRAM COUNTER 


:*PRIORITY LEVEL DEFINITIONS 
PRO= 0 


+: PRIORITY 
;2zPRIORITY 
7zPRIORITY 


NOWMESWN-O 


3*' "SWITCH REGISTER’’ SWITCH DEFINITIONS 
SW15= 100000 


SEQ 0010 
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000001 


1 

BIT09,BIT9 
B1T08,BIT8 
BITO7,BIT7 
BIT06,BIT6 
BITO5,BIT5 


B1IT00,BITO 


C ‘‘CPU'* TRAP VECTOR ADDRESSES 
3: TIME OUT AND OTHER ERRORS 
Se a AND ILLEGAL INSTRUCTIONS 
32 TRACE TRAP 
; BREAKPOINT TRAP (BPT) 
32 INPUT/OUTPUT TRAP (IOf) **SCOPE** 
7 POWER FAIL 
: sEMULATOR TRAP (EMT) **ERROR** 
TRAPVEC=34 32'"TRAP’’ TRAP 
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000060 TKVEC= 60 ;:TTY KEYBOARD VECTOR 
000064 TPVEC= 64 7zTTY PRINTER VECTOR 
000240 PIRQVEC=240 :;PROGRAM INTERRUPT REQUEST VECTOR 


=0 
.SBTTL TRAP CATCHER 
000000 .=0 
:*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT" 
[*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
: *LOCATION 19 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
DISPREG: - WORD 0 ::SOFTWARE DISPLAY REGISTER 
S WREG: 0 SOFTWARE SWITCH REGISTER 
000624 iF TYPOUT 
0006 


66 START 
000001 000612 #1,TYPOUT 
000654 START 


PS=177776 
TRAPVE C=34 
177570 

"173000 

65000 
2. 


177570 


512 
3.7 

51 

0 

0 

0 

0 

0 

0 

0 


ACT11 HOOKS 


[III III SIOIOIIISIIIOIOIOIOIIIOIIOIIICIOI IIIT IIIT OIRO ROOT SOTO SAM 8 Se 
“HOOKS REQUIRED BY ACT11 
001032 $SVPC=. SAVE PC 
000046 -=46 


321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


000000 yt LOC. Pe TO ZFRO 
001032 =$SVPC RESTORE 
.SBTTL APT PARAMETER BLOCK 


DIDI UII SIIIIISISIIOIIISIDIOIIOIIIIIOISIIOIIIUIOIUIOIOIDIOIOIOIOIOIDIDIDI IDIOT IOI IOUT tot 
SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
DIO IIUIOIISIOIIOISIOIIOIOIOIUISISIIOIOIDIDIOIOIOIOIOIDIOIOIDIDISIDIUIDIOITIDIDIOIDIDIDI IOI I to 
001032 ‘ -  ¢2SAVE CURRENT LOCATION 
000024 . :2SET POWER FAIL TO POINT TO START OF PROGRAM 
000200 3sFOR APT START UP 
000044 ° :zPOINT TO APT INDIRECT ADDRESS PNTR,. 
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001032 SAPTHDR ;;POINT TO APT HEADER BLOCK 

001032 -=.$X  ;;RESET LOCATION COUNTER 
RIIIIIISIOISIOISIOISIISIOIUIOISIOISIOIIIDIDIIDIOIOIIOIOIUIOIOIOIOIOI I ITISISIOIIIOINIIIOIII III IOI I I ot 
: SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


3;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
; ADDRESS OF APT MAILBOX (BITS 0-15) 
: RUN TIM OF LONGEST TEST 
: RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
WOi SETEND-SMAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 
.SBTTL APT MAILBOX-E TABLE 


FU IKK KIKI KKK KEKE EKER KEKE KKK Kk 


;;APT MAILBOX 
3sMESSAGE TYPE CODE 
7 sFATAL janes NUMBER 


3 DEVICE COUNT 
O UNIT ER 

> MESSAGE ADDRESS 
+ sMESSAGE LENGTH 
33APT ENVIRONMENT TABLE 
7 ENVIRONMENT BYTE 
ENVIRONMENT MODE BITS 
7sAPT SWITCH REGISTER 
2 USER SWITCHES 

sry TW, Sou Tore 
BITS 15- hy 

11706201. "15 /05= 02,11/20=03.11/40=04,11/45=05 
11/70=06, PDQ=07,0=10 

BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT + aniaaets 
BIT 8=MEMORY MANAGEMENT 


177746 : CLR $FATAL :CLEAR ERROR NO. 
177749 CLR $MSGTYP :CLEAR MESSAGE TYPE (APT) 
012767 000001 MOV #1,$TESTN :SET TEST NO. 
INITIALIZE THE COMMON TAGS 
012706 000500 MOV #500,SP ::SETUP THE STACK POINTER 
;zINITIALIZE A FEW VECTORS 
012737 004570 MOV ASTRAP ,AATRAPVEC ;;TRAP_VECTOR FOR TRAP CALLS 
#340, a#TRAPVEC+2;LEVEL 7 
#SPWRDN, AAPWRVEC :; POWER FAILURE VECTOR 
000340 MOV #340, aMPWRVEC+2 ;:LEVEL 7 
7:SIZE FOR A HARDWARE ryt REGISTER. IF NOT FOUND OR IT IS 
3;EQUAL TO A ‘=1"", SETUP FOR A SOFTWARE SWITCH REGISTER. 
000004 MO @FERRVEC ,~ (SP) 
001210 000004 #64$ , QAERRVEC VECTOR 
177570 177610 A#DSWR, SWR 3sSETUP FOR A HARDWARE SWICH REGISTER 
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012767 177570 177604 #DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
177777 §=177574 #=1 ,aSWR :cTRY TO REFERENCE HARDWARE SwWR 
66S" uae IF NO TIMEOUT TRAP OCCURRED 
THE HARDWARE SWR IS NOT = <1 
65$ 7 :BRANCH IF NO TIMEOUT 
001216 : MO #65$, (SP) SISeT UP FOR TRAP RETURN 


000176 177554 : ASWREG , SWR :sPOINT TO SOFTWARE SwWR 
000174 177550 #DISPREG, DISPLAY 
000004 (SP)+,@WERRVEC ;;RESTORE ERROR VECTOR 


177612 4 $PASS 7;CLEAR PASS COUNT 
000200 177617 MAPTSIZE,SENVM ;;TEST USER SIZE Oe aTC thy 
67$ 32YES,USE NON-APT SWIT 
012767 001070 177520 A#ESWREG, SWR :3NO,USE APT SWITCH REGISTER 


026727 176556 002060 42, A$ENDAD sACT AUTO MODE? 
RESTRT sYIF SO: BR 


Who 
MBAS 


000176 00006 RESTRT: 04176 ,46 IS SOFTWARE SWITCH REGISTER =6? 
BN 1$ IF NOT, TEST NORMALY 

000176 177466 TIF SO USE THE SOFTWARE SWITCH REG 

' RO GET SwWR 


177462 1$: 
‘IF ZERO: GET INPUT 
ST: 


RO 
177470 TXLPC (RO) ,EXLPC sFETCH EXPECT. LPC 
TXCRC (RO) ,EXCRC sFETCH EXPECTED 
TDLN1 (RO) ,DATLN1 FETCH 1ST LENGTH 
TRMSA1 (RO) ,ROMSA1 FETCH "ie bg tng ADDR. 
TDLN2(RO) ,DATLN2 CH 2ND LENGTH 
177422 TRMSA2 (RO) ,ROMSA2 FETCH 2p STARTING ADDR 
:GO COMPUTE 


CHE CK 

42 SUNDER ACT AUT ACCEPT? 

CHECK aif $0: A 5USE DEFAULT PARAME TERS 
177462 #1,$ENV [UNDER AP 

CHECK ‘IF SO: BR. 

TYPOUT sROM TYPE OPTION 

GET2 :IF SO: BR 


177370 MO (SP) +, EXCRC sSTORE EXPECT. CRC 
TYPE LPC INPUT REQUEST 


177360 MOV (SP) +, EXLPC STORE EXPECTED LPC 
REQUEST 1ST ADDRESS SPACE 
INPUT SA 


177332 MOV (SP) +,ROMSA1 ; 
sREQUEST LENGTH OF 1ST ADDR. SPACE 


; INPUT LENGTH 
177322 (SP)+,DATLNI 
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177312 


177302 
177314 


177250 
177240 
000324 
177230 
177226 
000556 
177216 
177214 
000270 
177200 
177176 
000522 
000001 
176204 


000656 
177146 


177132 


177124 
176136 
000001 
000002 
000001 


177062 


10:14 PAGE 16 
INITIALIZE THE COMMON TAGS 


CHECK: 


1$: 


177236 


1$: 


177150 CHI: 


002060 
177150 
177122 «18: 
177112 


177054 CK1: 


(SP) + ,ROMSA2 


(SP)+,DATLN2 
TYPOUT 


1$ 

TYPROM 
ACTCRC 
ACTLPC 
DATLN1,RO 
CH 


Sato R1 


> aia “RO 
PC,CRC 


ROMSA2,R1 
DATLN2 RO 
RO 


EXCRC, ACTCRC 
CK1 


EXCRC,~(SP) 


ACTCRC,~(SP) 
42 ,4#$ENDAD 
1$ 

#1, $ENV 

CK1 

#2, $FATAL 
#1, $MSGTYP 


ACTLPC,EXLPC 
CKe 


REQUEST START ADDR. 


; INPUT SA 


;REQUEST LENGTH OF 2ND SPACE 


; INPUT LENGTH 
:1S TYPOUT REQUESTED? 
NOT 


:SET LENGTH OF 1ST ROM SPACE 


BRANCH IF 


:GO_TYPE OUT POM 
;CLEAR STORAGE FOR ACTUAL CRC 
[CLEAR STORAGE FOR ACTULAL LPC 


:1F NO VERSION SELECTED: 


:POINT TO START OF 


; COMPUTE FIRST HALF OF 


:POINT TO START OF 1ST ROM ADDRS. 


CRC 


FOR 2ND SPACE 


BR 
1ST ROM SPACE 


:SET LENGTH OF 1ST ROM ADDRS. 
CONVERT TO 
;COMPUTE FIRST HALF OF CRC 
POINT TO 2ND ROM ADDRS. 
SET LENGTH OF 2ND ROM ADDRS. 


;BR IF THIS SPACE NOT USED 
COMPUTE REMAINDER OF CRC 
sPOINT TQ START OF 2ND ROM ADDRS. 


WORDS 


R 


SET LENGTH OF 2ND ROM ADDRS. 


; CONVERT TO 


: COMPUTE  talaateanees OF LPC 


SUNDER AP 
si SO: 


: BR 
[UNDER ma AUTO ACCEPT? 
;IF NOT: BR 


sCOMPUTED = 
SO: BR 


WORDS 


EXPECTED ? 


TYPE CRC ERROR MESG. 


;PUT EXPECT CRC ON STACK 
TYPE EXPECTED CRC 


TYPE ACTUAL CRC MESSG 


PUT ACTUAL CRC ON STACK 
TYPE ACTUAL CRC 
[UNDER ACT AUTO MODE? 
:1F SO: BR 


SUNDER APT? 
:1F NOT: 


BR 
;MOVE TO MAILBOX ERROR NO. 
;SET MAILBOX FOR FATAL ERROR 


:CRC ERROR 


xaere 


COMPARE EXPT. LPC=ACTUAL LPC 
:1F SO: BR 
: TYPE LPC ERROR MESSG. 


e 


aeee 


SEQ 0015 


MAIN, 


MACY11 30A(1052) 


CZM9AE P11 


17=APR=79 


005167 


17=APR=79 
10:12 


177042 


177034 
176044 
000001 
900001 


176006 


177004 
000042 


177200 
176722 
173024 


000114 
000166 


000400 


177703 


177703 
000074 


176620 


176600 


002060 
177056 


177030 
177020 


002060 


176712 


10:14 PAGE 1 


7? 
INITIALIZE THE COMMON TAGS 


1$: 


SENDAD: 


GOAGIN: 


CRC: 
CLO: 


CL3: 


CL1: 


CLe: 


CLLAST: 


EXLPC,=(SP) 


ACTLPC,-(SP) 
42, ASENDAD 
1$ 

#7, SENV 

Ck2 

#3, SFATAL 
#1,$MSGTYP 


42 ,ASENDAD 
1$ 


RESTRT 
ACTCRC,XORS 
(R1) LRG 
#173024, RI 
CL3 

RO 

RO 

(R1)+ 


CLO 
PC,PARITY 


RG 

CL2 

#400,R4 

R4,RS 

#177703,R5 

#177703,R5 
RS 


PUT EXPECTED LPC ON STACK 
TYPE EXPECTED LPC 
TYPE ACTUAL LPC MESSG. 


;PUT ACTUAL at haa STACK 
; TYPE ACTUAL 

SUNDER ACT to MODE ? 
sIF SO: BR 

; UNDER APT? 

:1F NOT: BR 

“MOVE TO MAILBOX ERROR NO. 


;SET MAILBOX FOR FATAL ERROR 
[LPC ERROR 


sACT AUTO ACCEPT? 
:1F SO: BR 
TYPE END OF TEST 


;BUMP PASS COUNT 
CHECK APT 
:KEEP GOING 


ACT HOOKS 


near 3 weee 


:DO AGAIN 


:GET CHAR 
LOCATION: ee BY SWITCHES 


> IF NOT 

FIX COUNTERS 
sFIX POINTER 
; CONTINUE 

;GO GET PARITY 

:XOR CHAR 

sROTATE 1 POS. RIGHT 
7 IF NO CARRY: BR 
:SET BIT NINE 


SAVE CHAR 


:IF LAST CAR,: BR 
GET NEXT CHAR, 


SEQ 0016 


812 


VAae2aeee 
— ss os I 
COOONAUSW 


821 


MACY11 304(1052) 
P11 10: 


17=APR=-79 


i da'e,! 
176556 
176560 
000010 


176542 


176452 


176454 
173026 
177732 


176416 


176372 
176370 


176354 


000006 


17=APR=79 
12 


176572 


176562 


176516 


176442 


176424 


10:14 PAGE 


18 
INITIALIZE THE COMMON TAGS 


PARITY: 


CLPO: 


CLP1: 


CLP2: 
KOR: 


LPC: 
LPC1: 


LPC2: 


TYPROM: 


TYPR1: 


ENDOT: 


TYP: 


#177050, ORS 
#177727,R4G 


R4 ,XORS 
+ ace ce 


R4,-(SP) 
XORS, (SP) 
R4,XORS 
(SP) +,XORS 
XORS ,R4 

PC 


ACTLPC,XORS 
(R1)+,R4 
#173026,R1 
LPC2 

PC,XOR 

RO 


LPC1 
XORS ,ACTLPC 
PC 


ROMSA1 ,RO 
ee a 


R 

TYPR1 
PC,TYP 
ROMSA2,RO 
porate 


R 
ENDOT 
PC,TYP 


COMPLEMENT ALL BUT BITS 3 & 5 


:CLEAR BIT COUNTER 
;SET NO. OF BITS 

SEE IF _ONE BIT 

:IF NOT: BR 

ROTATE TO NEXT BIT 
: CONTINUE FOR ALL BITS 


:XOR SUBROUTINE: R4 WITH XORS 


LOCATION EFFECTED BY SWITCHES 
:IF SO: SKIP LOC. BY BRANCHING 


; BUMP COUNTER 


ar sb: ODD # OF ONE BITS 
seit PARITY BIT 


i; TYPE HEADER 


:POINT OT 1ST ROM SPACE 
PUT LENGTH IN R1 
;CONTERT TO WORDS 
BRANCH IF 1ST ROM SPACE NOT USED 
:GO TYPE 1ST ADDR. E 

POINT TO 2ND ADDR. SPACE 

PUT LENGTH IN R1 

: CONVERT TO WORDS 

:BR IF 2ND ADDR. SPACE NOT USED 
;GO TYPE 2ND ADDR. SPACE 


SPAC 


SEQ 0017 


-MAIN, 


CZMOAE P11 


833 


MACY11 30A(1052) 
17~APR-79 


177560 
177562 


002640 011646 


17=APR=79 10:14 PAGE 1 
10:12 INITIALIZE OME COMMON TAGS 
BR TYP3 
000003 TYPO: BIT #3,R0 sADDRESS MULTIPLE OF 4? 
BNE TYP2 ;IF NOT: BR 
TYP3: TYPE 
CARLF 
MOV RO,-(SP) sPUT ADDRESS ON STACK 
TYPOC ; TYPE ADDR. 
TYPE 
COLON 
TYP2: MOV (RO) +,=(SP) ;PuUT tie ON STACK 
TYPOC TYP DATA 
TYPE :TYPE 2 SPACES 
SP2 
DEC R1 :F INISHED? 
BNE TYPO ;1F NOT BR 
RTS PC “RETURN 
AUTACT: CLR RO 
000002 AUT1: ADD #2,R0 ;BUMP TALBE INDEX 
005226 177777 CMP TMSG(RO), #-1 7CHECKED ALL KNOWN VERSIONS? 
BEQ AUTERR 3IF SO: BR 
004644 176254 CMP a on »ACTCRC “DOES THIS CRC AGREE? 
BNE AUT1 3IF NOT: KEEP LOOKING 
000042 002060 CMP a442 ,ASENDAD SUNDER ACT AUTO ACCEPT? 
BEQ AUT3 sIF SO; BR 
005226 000002 ps TMSG(RO) ,AUT2 SET UP VERSION MESSAGE 
AUT2: 0 
004644 176216 AUT3: MOV TXCRC(RO) ,EXCRC sSET EXPECTED CRC 
004714 176212 MOV TXLPC (RO) ,EXLPC sSET EXPECTED LPC 
177124 JMP CKi sCHECK LPC 
AUTERR: TYPE 
AUTERM 
000001 176224 MOV #1,$FATAL sMOVE TO MAILBOX ERROR NO. **** 1 weee 
000001 176214 MOV #1,$MSGTYP sSET MAILBOX FOR FATAL ERROR 
HALT sAUTO ACCEPT FAILED 
-SBTITL TTY INPUT ROUTINE 
CL REE REE REE REE EER EERE REE EERE EERE EERE ER 
$TKS: WORD 177560 zi TTY KBD STATUS 
$TKB: -WORD 177562 i: TTY KBD BUFFER 
-ENABL LSB 
-DSABL LSB 


SD ERR EERE EERE REE REE EKER ER EERE EEE 


2*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


7 *CALL 

,* RDCHR 72 INPUT A SINGLE tgs FROM THE TTy 
:* RETURN HERE 3 sCHARACTER IS ON THE STACK 

;# ieWITH PARITY BIT STRIPPED OFF 

$RDCHR: MOV (SP) ,=(SP) 3=PUSH DOWN THE PC 


SEG 0018 


-MAIN. 


CZMPAE .P1 


MACY11 30A(1052) 
Vi 17=APR-79 


gaa 
10:12 


000004 
177760 
177754 
177600 
000004 
177726 
177722 
177600 
000021 
000004 
000004 
000040 


003214 
003224 


000177 


000134 
003212 
177777 
003214 


000144 
003212 


000134 
003212 


000025 
003230 


000002 


000004 
000004 
000023 


000140 


000175 


000004 


000170 


000124 
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TTY INFUT ROUTINE 


1$: 


2$: 


S$: 


4(SP) ,2(SP) 
oerKs 


$ 
@$1K8,4 (SP) 


#°(<177>.4 (SP) 


4(SP) ,#2 

3$ 

asks 

2$ 
a$TKB,=(SP) 
#°C177, (SP) 
(SP)+,421 
2$ 

1$ 

4(SP) 4140 
4$ 

4(SP) #175 
4 
#40,4(SP) 


ss se THE PS 
sew AIT FOR 
ZA CHARACTER 
+ FREAD THE TTY 
3iGET RID OF JUNK IF ANY 
::IS IT A CONTROL=S? 
Shr IF NO 
; ¢WAIT FOR A CHARACTER 
;LOOP UNTIL ITS THERE 
3GET CHARACTER 
:IMAKE IT 7-BIT ASCII 
71S IT A CONTROL-Q? 
‘ite NOT DISCARD IT 
32 YES, RESUME 
3231S IT UPPER CASE? 
Z7BRANCH IF YES 
zz1S IT A SPECIAL CHAR? 
; BRANCH IF YES 
7ZMAKE IT UPPER CASE 
3360 BACK TO USER 


SEERA RRR RRR ERERE ERE A REE EERE ERE EERE REE 


3*THIS ROUTINE WILL INPUT A STRING FROM THE [TY 


*CALL: 


6$: 


5$: 


7$: 


RDLIN 
RETURN HERE 


R35,-(SP) 
~ (SP) 
#$TTYIN,R3 


M$TTYINe8. ,R3 


4$ 


(SP) +, (R3) 
Sl eaas 


$ 
(SP) 
6$ 
#'\ 9 
9S 
4-1, (SP) 
R 
R3,A$TTYIN 
4$ 
(R3) ,9$ 
$ 


32 INPUT A STRING FROM THE TTY 
; ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
7 TERMINATOR WILL BE A BYTE OF ALL O'S 


ZZSAVE R3 

é CLEAR THE RUBOUT KEY 
;GET ADDRESS 

: :BUFFER or 


IF 
:GO READ ONE CHARACTER FROM THE TTY 
:3GEN CHARACTER 
iTS is i t. A RUBOUT 


BR | 
Z1S THIS THE FIRST RUBOUT? 
; ‘TBR IF NO 

: TYPE A BACK SLASH 


32SET THE RUBOUT KEY 
; BACKUP BY ONE 
23 STACK EMPTY? 


‘BR IF YES 
: SETUP P 10 TYPEOQUT THE DELETED CHAR. 
*260 READ ANOTHER CHAR. 

RUBOUT KEY SET? 


33BR IF NO 
32: TYPE A BACK SLASH 


::CLEAR THE RUBOUT KEY 
iTS CHARACTER A CTRL U? 


IF NO 
+S TYPE A CONTROL ‘U"’ 
::G0 START OVER 


SEQ 0019 


MAIN. 


. poh hg 
CZM9AE .P11 


2 
003214 


7=APR=79 
122713 


40 
036440 


17=APR=79 
10:12 


000022 
003225 
003214 
003224 

046 


000 
003212 
000015 


177777 


000004 
003214 


005015 


00 
047040 
000040 


000004 


000100 


000002 
060004 


000 
000012 
020122 


053505 


000002 


$TTYIN: .BLKB 


10:14 PAGE 21 


TTY INPUT ROUTINE 


8$: CMPB #22,(R3) 31S CHARACTER A *"*R’"? 
BNE 3$ «BRANCH IF NO 
CLRB (R3) 2¢ CLEAR THE CHARACTER 
TYPE » $CRLF TYPE A ‘'CR'' & ‘LF’ 
TYPE eSTTYIN i: TYPE THE INPUT STRING 
BR 2$ 290 okt os ANOTHER CHACTER 
4$: TYPE , $QUES YPE A 
BR 1$ SICLEAR THE BUFFER AND LOOP 
3$: MOVB (R3) ,9$ :sECHO THE CHARACTER 
TYPE I$ 
CMPB #15, (R3)+ CHECK FOR RETURN 
BNE 2$ ‘SLOOP IF NOT RETURN 
CLRB -1(R3) 3-CLEAR RETURN (THE 15) 
TYPE -SLF es A LINE FEED 
TST (SP) + :CLEAN RUBOUT KEY FROM THE STACK 
MOV (SP)+,R3 :;RESTORE R3 
MOV (SP) ,=(SP) SZADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(SP) ,2(SP) sg FIRST ASCII CHARACTER ON IT 
MOV A$TTYIN,4(SP) 
RTI ; ;RETURN 
9$: -BYTE 0 7 7STORAGE FOR ASCII CHAR. TO TYPE 
-BYTE 3s TERMINATOR 


3sRESERVE 8 BYTES FOR TTY INPUT 


SQUES: .ASCI] *?" 7 QUESTION MARK 
$CRLF: .ASCII <15> 7 CARRIAGE RETURN 

$LF: eASCIZ <12> :zLINE FEED 

$CNTILU: .ASCIZ /*U/<15><12> Zz CONTROL ‘U"' 
$CNTLG: .ASCIZ /*G/<15><12> sz CONTROL ‘'G'' 
SMSWR: ASCIZ <15><12>/SWR = / 


SMNEW: .ASCIZ / NEW = 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


ICO III IOIIDIUIDIIIIOIOIOIIISIIIOIUIIDIOIOIOIOIOIUIOIOIOIOIOIOIOIOIDIUIDIDIDIDINIOIDIDIOIIIINIOIUI I 

SS THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
:*CHANGE IT TO BINARY. 

;*THE INPUT CHARACTERS WILL BE CHECKED TO a. THEY ARE LEGAL 
;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ‘'?** WILL BE TYPED 
:*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
{CALL BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
;*CALL: 


: RDOCT :¢READ AN OCTAL NUMBER 

‘a RETURN HERE :-LOW ORDER BITS ARE ON TOP OF THE STACK 
7° 3 sHIGH ORDER BITS ARE IN $HIOCT 

$RDOCT: MOV (SP) ,=(SP) 


; «PROVIDE SPACE FOR THE 
MOV 4 (SP) ,2(SP) T NUMBER 
MOV RO, (SP) ‘PUSH RO ON STACK 
MOV R1,-(SP) a8 
MOV R2,~(SP) 


; IZ LINE 
MOV (SP)+,R9 2.GET ADDRESS OF 1ST CHARACTER 
MOV RO,5$ ZAND SAVE IT 
CLR R1 SZ CLEAR DATA WORD 


CLR R2 


SEQ 0020 


I 2 
MAIN. MACY11 30A(1052) 17=APR=79 10:14 PAGE 22 
CZMOAE .P11 17=APR=79 10:12 READ AN OCTAL NUMBER FROM THE TTY SEQ 0021 


2s: MOVB (RO) +,=(SP) 3zPICKUP THIS CHARACTER 
3$ scIF ZERO GET OuT 
000060 Z7MAKE SURE THIS CHARACTER 
4$ :cz1S AN OCTAL DIGIT 
000067 


R2 
177770 #*C7,(SP) 3eSTRIP THE ASCII JUNK 
a ry ge THIS DIGIT 


aS: 7:CLEAN TERMINATOR FROM STACK 
000012 . 2 SAVE THE RESULT 


000026 

7zPOP STACK INTO R2 
3zPOP STACK INTO R1 

(SP)+, “RO iF INTO RO 
sé N 

4$: (SP) + 3iCLEAN PARTIAL FROM STACK 

(RO) 3zSET A TERMINATOR 

32 TYPE UP THRU THE BAD CHAR. 


ad cad ch al cal ed eld lh ail ee 
elelelelelelelelele) 


5$: 


. 0 
003224 ,SQUES : wages “ay a aS 
BR 1$ 


TRY AGAIN 
$HIOCT: .WORD 0 :zHIGH ORDER BITS GO HERE 
.SBTTL TYPE ROUTINE 


FREER ERE ERE RRR ERE EERE ERR EKER EERE EEE ERE EERE 

: ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

> *NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
: *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

> *NOTE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 

;* 

> *CAL 

ie) “USING A TRAP INSTRUCTION 

TYPE —_,MESADR ::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


TYPE 
ME SADR 


105767 000265 : $TPFLG 31S THERE A TERMINAL? 
B 1$ TBR IF YES 
ZHALT HERE IF NO TERMINAL 


3$ $3 
RO,-(SP) 37SAVE RO 
000002 @2(SP) ,RO ::GET ADDRESS OF ASCIZ STRING 
000001 175414 MAPTENV, SENV : ¢RUNNING IN APT MODE 
BN 62$ :NO,GO CHECK FOR APT CONSOLE 
000100 175405 #APTSPOOL ,SENVM ;;SPOOL MESSAGE TO APT 
001405 62$ 3:NO,GO CHECK FOR CONSOLE 





MAIN. 


MACY11 we 


CZMOAE .P11 


1098 


3 


— ee a es 6 a as sd 1) os 
ed ed od 


17=APR-79 


016746 
105366 
002770 
004767 
105367 
000770 


112716 
004767 


Po aii 
0:12 


000004 
000230 


000040 


000002 
000011 
000200 


000130 


000056 
000130 


000120 
000001 


000032 
000072 


000040 
000014 
000007 


000044 


000002 
000015 


000014 
000012 


175363 


000052 


000036 
000002 


000002 
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TYPE ROUTINE 
61$: J 
62$: BITB 
BN 
2$: MOVB 
BN 
60$: MOY 


3$: ADD 
43: CMPB 


5$: JSR 


6$: CMPB 


7$: DECB 


sHORIZONTAL TAB 


8$: MOVB 
9$: JSR 
BITB 
BNE 
TST 
BR 
$TYPEC: TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
1$: CMPB 
BEQ 
INCB 
$SCHARCNT: . WORD 
$TYPEX: RTS 
$TPS: . WORD 
$TPB: . WORD 
$NULL: .BYT 
$FILLS: .BYTE 


RO,61$ 
‘pinnae 


MAPTCSUP ,SENVM 


(RO) +,=(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2,(SP) 
#HT, (SP) 

8$ 

ACRLF, (SP) 
5$ 


(SP) + 


SCHARCNT 
2$ 


PC, $TYPEC 
| cecal 


2 
$NULL ,- (SP) 
1(SP) 

6$ 

PC, $TYPEC 
$CHARCNT 
7$ 
PROCESSOR 
#* ,(SP) 
PC, $TYPEC 
#7, $CHARCNT 
9$ 

(SP) + 

2$ 

a$TPS 
$TYPEC 


2(SP) ,a$TPB 
oO 


$ 

ee i 3 (SP) 
(POs 

0 
PC 
177564 
177566 
0 

2 


+3 SETUP ME SSAGE io at FOR APT 


DDRESS 
CONSOLE SUPPRESSED 
YPE OUT 


YES, SKIP TY 
:;PUsH OF inte TO BE _ TYPED ONTO STACK 
pbR IF IT ISN'T THE TERMINATOR 


SI1F TERMINATOX POP IT OFF THE STACK 
; sRESTORE RO 
+ ¢ADJUST RETURN PC 

E TURN 


7 ZBRANCH IF <HT> 
; BRANCH IF NOT <CRLF> 


33POP_ <CR><LF> EQUIV 
:2TYPE A CR AND LF 


3zCLEAR CHARACTER COUNT 

3;GET NEXT CHARACTER 

::GO TYPE THIS CHARACTER 

7371S IT TIME FOR FILLER CHARS.? 
:21F NO GO GET NEXT CHAR. 

:;GET # OF FILLER oe NEEDED 
3sAND THE NULL CHAR 

7:DOES A NULL NEED TO BE TYPED? 
:3BR IF NO=--GO POP THE NULL OFF OF STACK 
3:GO TYPE A NULL 

sit Al COUNT AS A COUNT 


at as ba WITH SPACE 
: TYPE A SPACE 
+: BRANCH + NOT AT 

i AB STOP 

3zPOP SPACE OFF STACK 

3i:GET NEXT CHARACTER 

;zWAIT UNTIL PRINTER IS READY 


;zLOAD CHAR TO BE TYPED INTO DATA REG. 

iI Se ee eo A CARRIAGE RETURN? 
BRANCH IF NO 

:SYESe=CLEAR CHARACTER COUNT 


eI ogee LINE FEED? 


: CHARACTER 
3; CHARACTER COUNT STORAGE 


iz TTY PRINTER STATUS REG. ADDRESS 

iz TTY PRINTER BUFFER REG. ADDRESS 
sCONTAINS NULL CHARACTER FOR FILLS 
2-CONTAINS # OF FILLER CHARACTERS REQUIRED 


SEQ 0022 


s 
2 


MACY11 30A(1052) 17=APR=79 10:14 PAGE 24 
.P11 17=APR=79 10:12 TYPE ROUTINE 


012 $FILLC: .BYTE 12 32 INSERT FILL CHARS. AFTER A ‘LINE FEED" 
000 $TPFLG: .BYTE 0 33° ‘TERMINAL AVAILABLE’' FLAG (BIT<07>=0=YES) 
~SBTTL APT COMMUNICATIONS ROUTINE 


3 


SEQ 0023 


FDO SUIS IUIIIOIIISIDIIIIOIIOIIOIDIIUIUIDIIUIDIIOUIOIIOIUIIIUE IIE Rott itt 
SATY1: 32TO REPORT FATAL ERROR 
$ATY3: 3:TO TYPE A MESSAGE 


SATY4: ::TO ONLY REPORT FATAL ERROR 


$ATYC: 
37PUSH RO ON STACK 
7zPUSH R1 ON STACK 
SMFLG 4g TYPE A MESSAGE? 


5$ sc IF NOT: 
MAPTENV, SENV 7 OPERATING UNDER APT? 

$ i NOT: BR 
on ye SPOOL MESSAGES? 


:21F NOT: BR 
a4(SP),RO 77GET MESSAGE ADDR. 
#2,4(SP) ; BUMP RETURN ADDR. 
SMSGTYPE 3zSEE IF DONE W/ LAST XMISSION? 
1$ sciF NOT: WAIT 
RO, $MSGAD :zPUT ADDR IN MAILBOX 
eae :zFIND END OF MESSAGE 
$MSGAD ,RO 
RO 


112767 
112767 


000403 
112767 


000236 
000226 


000220 


000001 
000001 
000001 #1,$FFLG 
RO,-(SP) 
R1,~(SP) 
000206 
000001 
000100 
000004 
000002 
175034 


175042 


175104 
175075 


ONAMEWN-ODONAUSW 


000004 


175032 ;:SUB START OF MESSAGE 


72GET MESSAGE LNGTH IN WORDS 


WDWNAOEWM OO ODONAUSWR—O COON 
wh 


RERRERRRRERERS 
RISKFNVSAEVRSERS 


leatea 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
. 
5 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


mk i a a) od nd) 8 a I os 
Bo uth rn reat 0 Ste Oe Aas eo Dae bn he oo SSS ARS eo i ee 
CONAW WU EWR 


175026 
000004 


000002 
173710 
177332 


000062 
174760 
174732 


000006 


175002 


000016 
000004 


174724 
000004 


SMFLG: 
$LFLG: 
$FFLG: 


-EVEN 
APTSIZE=200 


RO, $MSGLGT 
.-waerws 


a4 (SP) ,4$ 
P) 

»STYPE 

0 

SFFLG 

12$ 

SENV 

12$ 

$MSGTYPE 

11$ 

04 (SP) ,SFATAL 
4(SP) 


(SP)+,RO 
PC 

0 

0 

0 


;sPUT LENGTH IN MAILBOX 
3;TELL APT TO TAKE MSG. 


:zPUT MSG ADDR IN JSR LINKAGE 
- -BUMP RETURN ADDRESS 

::PUSH 177776 ON STACK 

‘CALL TYPE MACRO 


32SHOULD REPORT FATAL ERROR? 
si1F NOT: BR 
3 ZRUNNING UNDER APT? 
as NOT: BR 
33F INISHED LAST MESSAGE? 
scIF NOT: WAIT 
72GET ERROR # 
; BUMP RETURN ADDR. 

:z TELL APT TO TAKE ERROR 

CLEAR FATAL FLAG 


:zPOP STACK INTO R1 
:zPOP STACK INTO RO 
7 RETURN 

3oMESSG. FLAG 

:zL0G FLAG 

7 ZFATAL FLAG 





MAIN. MACY11 30A(1052) 


CZM9AE .P11 


1169 
1170 
71 


WMO OONAWEW 


ak a ak ak a nc a ts th ot 2 ot oe I os ot oo SS I 
kk a tk a a a a ak st a oh 2 a as hs ss a 
WN 


BSSSRSRVV VS SSSR RV ses IgA ZW 


COON 


MOMIMONMONGNNNNNY 
a Pr er ee ee 


mk se a “kd 2) od od od = os I 


MoNroroeNnon 
Mmronronr— 


8 
= 


BWM OVONAUSWN-O 
N 
= 


17=APR=-79 


17=APR=79 
10:12 


600171 
000165 
000154 


000076 
177770 
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AP 


T COMMUNICATIONS ROUT INE 


APTENV=001 

APTSPOOL =100 

APTCSUP=040 

-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


RRR RR ERRORRRERER ERE EERE RRR REE 

SS THIS ROUTINE iS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 

> *OCTAL (ASCII) NUMBER AND TYPE iT. 

: *$TYPOS=--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 10 TYPE 


T*CALL: 
i* MOV NUM ,-(SP) : ; NUMBER TO BE TYPED 
is TYPOS CALL ona TYPEOUT 
it BYTE N + N=1 O 6 FOR NUMBER OF DIGITS TS TYPE 
3* -BYTE ™ :iM=1 oR 0 
:* 3217=TYPE LEADING ZEROS 
® 320=SUPPRESS LEADING ZEROS 


000211 


7 


3 *$TYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
i*$TYPOS OR $TYPOC 


> *CALL: 
;* MOV NUM ,-(SP) 3; =NUMBER TO BE TYPED 
* TYPON 32CALL FOR TYPEOUT 
** 
ae HERE FOR TYPEOUT OF A 16 BIT NUMBER 
Z*CALL: 
3* MOV NUM, -( SP) > NUMBER TO BE TYPED 
i* TYPOC 32CALL FOR TYPEOUT 
$TYFOS: MOV a(SP) ,-(SP) 3zPICKUP THE MODE 
MOVB 1(SP) , SOF ILL. :zLOAD ZERO FILL SWITCH 
MOVB (SP)+,S$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
ADD #2, (SP) 7 ADJUST RETURN ADDRESS 
BR $TYPON 
$TYPOC: MOVB #1, SOF ILL 3eSET THE ZERO FILL ”m™ 
MOVB #6, $S0MODE +1 ae FOR SIX(6) DIGIT 
$TYPON: MOVB #5, $0CNT SET THE ITERATION COUNT 
MOV R3,-(SP) + SAVE R3 
MOV R4,-(SP) ZSAVE R4 
MOV R5,-(SP) 77 SAVE R5 
ty SNES! RG 3:GET THE NUMBER OF DIGITS TO TYPE 
ADD #6,RS sore ige ly IT FOR MAX. ALLOWED 
MOVB R4,SOMODE sSAVE IT FOR USE 
MOVB SOF ILL, RS :GET THE ZERO FILL SWITCH 
MOV 12(SP) ,R5 - PICKUP THE INPUT NUMBER 
CLR R3 : CLEAR THE OUTPUT WORD 
1$: ROL R5 ZROTATE MSB INTO ‘'C’' 
BR 3$ ::GO DO MSB 
2$: ROL R5 32FORM THIS DIGIT 
ROL R5 
ROL R5 
MCV R5,R3 
3$: ROL R $4 LSB OF THIS Dinh 


TYPE THiS DIGIT 


7;BR_IF NO 
BIC #177770,R3 SIGET RID OF JUNK 


SEQ 0024 


A 2 
-MAIN. MACY11 eS 17=APR=79 10:14 PAGE 25 


CZM9AE .P11 17=APR=79 10:12 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0025 
1225 004320 001002 BNE 4$ si TEST FOR O 
1226 004322 005704 TST R4 32 SUPPRESS THIS 0? 
1227 004324 001403 BEQ 5$ 72BR IF YES 
1228 004326 005204 4$: INC RS 7;DON'T SUPPRESS ANYMORE 0°S 
1229 004330 052703 000060 BIS #°0,R3 7 MAKE THIS DIGIT ASCII 
1230 004334 052703 000040 S$: SIS #* RS 7iMAKE ASCII IF NOT ALREADY 
1231 004340 110367 000040 MOVB R3,8$ 32 SAVE FOR TYPING 
1232 004344 104401 004404 TYPE ,8$ 32:GO TYPE nes DIGIT 
1233 004350 105367 000032 7$: DECB SOCNT ; COUNT BY 
1234 004354 003347 BGT 2$ 7; 7BR IF PORE TO DO 
1235 004356 002402 BLT 6$ ;7BR IF DONE 
1236 ( 005204 INC R4 2 ¢ INSURE LAST DIGIT ISN'T A BLANK 
1237 004362 000744 BR 23 ;GO DO THE LAST DIGIT 
1238 004364 012605 6$: MOV (SP) +,R5 T RESTORE R5 
1239 012604 MOV (SP)+,R4 SZRESTORE R4 
1240 004370 012603 MOV (SP)+,R3 RESTORE R3 
1241 004372 016666 000002 000004 MOV 2 (SP) ,4(SP) Zz SET THE STACK FOR RETURNING 
1242 004400 012616 MOV (SP)+, (SP) 
1243 004402 000002 RT] 7 RETURN 
1244 004404 000 8$: -BYTE O 3 STORAGE FOR ASCII DIGIT 
1245 004405 000 -BYTE 0 32 TERMINATOR FOR TYPE ROUTINE 
1246 004406 000 SOCNT: .BYTE 0 7zO0CTAL DIGIT COUNTER 
1247 004407 000 $OFILL: .BYTE 0 3zZERO FILL SWITCH 
1248 004410 000000 SOMODE: .WORD 0 7 NUMBER OF DIGITS TO TYPE 
isep . SBTTL POWER DOWN AND UP ROUTINES 
1251 LARA RRA ERE ERE AEREREEEERERERRRRE EERE 
1252 “POWER DOWN ROUTINE 
1253 004412 012737 004552 000024 $PWRDN: MOV MSILLUP,@#PWRVEC ;;SET FOR FAST UP 
1254 004420 012737 000340 (00026 MOV #340, QAPWRVEC+2 ; ;PRIO:7 
1255 004426 010046 MOV RO,-(SP) +: PUSH RO ON STACK 
1256 004430 010146 MOV R1,-(SP) 77PUSH R171 ON STACK 
1257 004432 010246 MOV R2,-(SP) 3zPUSH R2 ON STACK 
1258 434 010346 MOV R3,-(SP) 73PUSH R3 ON STACK 
1259 004436 010446 MOV R4,-(SP) 7ZPUSH R4 ON STACK 
1260 004440 010546 MOV R5,-(SP) as H R5 ON STACK 
1261 004442 017746 174332 MOV @SWR,-(SP) : «PUSH @SWR ON STACK 
1262 004446 010667 000104 MOV SP, $SAVR6 ;SAVE SP 
1263 004452 012737 004464 000024 MOV ASPWRUP ,a#PWRVEC’ :;SET UP VECTOR 
1264 004460 000000 HALT 
isee 004462 000776 BR 72 7 HANG UP 
1267 CDI III III II IIIIIOIOIIOIOIIIOIUIIOIUIUIOIUIOIOIUIUIOIUIOIUIIOIOIOIOIOIOIOIOI IO RTO toi tott 
1268 = POWER UP ROUTINE 
1269 004464 012737 004552 000024 $PWRUP: MOV ASILLUP,@AMPWRVEC ;;SET FOR rAST DOWN 
1270 004472 016706 000060 MOV $SSAVR6, Sp :2GET SP 
1271 004476 005067 000054 CLR SSAVR6 ;WAIT LOOP FOR THE TTY 
1272 004502 005267 000050 1$: INC SSAVR6 + WAIT FOR THE INC 
1273 004506 001375 BNE 1$ 720F WORD 
1274 004510 012677 174264 MOV (SP)+,aSWR 3zPOP STACK INTO @SwWR 
1275 004514 012605 MOV (SP)+,R5 :zPOP STACK INTO R5 
1276 004516 012604 MOV (SP)+,R4 3zPOP STACK INTO R4 
1277 004520 012603 MOV (SP)+,R3 3zPOP STACK INTO R3 
1278 004522 012602 MOV (SP)+,R2 :zPOP STACK INTO R2 
1279 004524 012601 MOV (SP)+,R1 3zPOP STACK INTO R1 
1280 004526 012600 MOV (SP)+,RO :;POP STACK INTO RO 


1290 


BRUTE 


S3zzR 


Seoroxs 


SRL 
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MACY11 
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004530 
36 
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012737 
012737 


011646 
016666 
000002 


177777 
000571 
000457 
000243 


10:1 


004412 
000340 


047520 


000002 


004624 


000004 


000024 
000026 


042527 


000002 


N 2 


17-APR=79 10:14 PAGE 27 
712 P DOWN AND UP ROUTINES SEQ 0026 


OWER 
MOV ASPWRDN ,@APWRVEC ;;SET UP THE POWER DOWN VECTOR 


MOV #340, QAPWRVEC+2 ;;PRIO:7 
TYPE ;REPORT THE POWER FAILURE 
$PWRMG : a $POWER 3¢POWER FAIL MESSAGE POINTER 
$ILLUP: HALT 37 THE POWER UP SEQUENCE WAS STARTED 
BR “2 3; BEFORE THE POWER DOWN WAS COMPLETE 
$SSAVR6: 0 737PUT THE SP HERE 


$SPOWER: .ASCIZ <15><12>' POWER'' 


-EVEN 
-SBTTL TRAP DECODER 


EPI iti titi iii rit iii ii titi titi titi titi iig) 
*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


$TRAP: MOV RO,-(SP) 3, SAVE RO 
MOV 2(SP),RO 7iGET TRAP ADDRESS 
TST -(ROQ) ; BACKUP BY 2 
MOVB (RO) ,RO 32GET RIGHT BYTE OF TRAP 


R ;2POSITION FOR INDEXING 
MOV $TRPAD(RO),RO ;; INDEX TO TABLE 
RO 32G0 TO ROUTINE 


3:THIS IS USE TO HANDLE THE ‘'GETPRI'' MACRO 


$TRAP2: MOV (SP) ,~(SP) :zMOVE THE PC DOWN 
MOV 4(SP) ,2(SP) 32MOVE THE PSwW DOWN 
RTI :sRESTORE THE PSW 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3 *BY THE *’TRAP’* INSTRUCTION. 


; ROUT INE 
$TRPAD: .WORD  $TRAP2 
$TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEQUT ROUTINE 


$TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
$TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 


$RDCHR = ;;CALL=RDCHR TRAP+5(104405) TTY TYPEIN CHARACTER ROUTINE 
$RDLIN ;;CALL=RDLIN TRAP+6(104406) TTY TYPEIN STRING ROUTINE 
$RDOCT ;;CALL=RDOCT TRAP+7(104407) READ AN OCTAL NUMBER FROM TTY 


TXCRC: =1 
571 37M9301 - YA VERSION 
457 3M9301 - YB VERSION 


243 3M9301 = YC VERSION 


6 3 

-MAIN, MACY11 30A(1052) 17=APR=79 10:14 PAGE 28 

CZM9AE P11 17=APR=79 10:12 TRAP TABLE SEu 0027 
1337 004654 000635 635 2M9400 = YA(OR YC) VERSION 
1338 006656 000207 207 3M9301 = YF VERSION 
1339 004660 000670 670 ;M7942 = YB VERSION 
1340 004662 000132 132 3M9301= YD VERSION 
1341 004664 000374 374 3M9400 = YH (OR YK) VERSION 
1342 004666 000630 630 :M9311 VERSION == REVISION * (ORIGINAL REV.) 
1343 004670 000536 536 3M9301 = YH VERSION 
1344 004672 000752 752 3M9301 = YE VERSION 
1345 004674 000633 633 :M9301 = YJ VERSION 
1346 004676 000650 650 3M9400 = YN VERSION 
1347 004700 000710 710 3M9311 VERSION == REVISION A ( SECOND REV.) 
1348 004702 177777 -1 
1349 004704 177777 -1 
1350 004706 177777 -1 
1351 004710 177777 -1 
1328 004712 177777 -1 
1354 004714 177777 TXLPC: <1 
1355 004716 133725 133725 3M9301 = YA VERSION 
1356 004720 017563 17563 3M9301 - YB VERSION 
1357 004722 141744 141744 3M9301 = YC VERSION 
1358 004724 047613 47€13 M9400 = YA(OR YC) VERSION 
1359 004726 114175 114175 3M9301 = YF VERSION: 
1360 004730 146126 146126 :M794¢ = YB VERSION 
1361 004732 132161 132161 3M9301 = YD VERSION 
1362 004734 143466 143466 M9400 - YH(OR YK) VERSION 
1363 004736 036751 36751 3M9311 VERSION-- REVISION * (ORIGINAL REV.) 
1364 004740 125411 125411 3M9301 - YH VERSION 
1365 004742 c 066246 3M9301 = YE VERSION 
1366 004744 132267 132367 3M9301 = YJ VERSION 
1367 004746 030210 30210 3M9400 - YN VERSION 
1368 004750 036743 36743 :M9311 VERSION--REVISION A ( SECOND REV.) 
1369 004752 177777 -1 
1370 004754 177777 -1 
1371 004756 177777 -1 
1372 004760 177777 -1 
1373 004762 177777 -1 
: Ye 004764 177777 -1 
1376 004766 177777 TDLNI: =1 
1377 004770 001000 1000 3M9301 = YA VERSION 
1378 004772 001000 1000 3M9301 - YB VERISION 
1379 004774 001000 1000 3M9301 - YC 
1380 004776 001000 1000 3M9400 = YAC(OR YC) VERSION 
1381 005000 001000 1000 7M9301 - YF VERSI 
1382 005002 004000 4000 3M7942 = YB VERSION 
1383 5004 001000 1000 :M9301 - VD VERSION 
1384 5006 001000 1000 3M9400 - YH(OR YK) VERSION 
1385 005010 001000 1000 :M9311 VERSION REVISION * (ORIGINAL VERSION) 
1386 005012 000734 734 M9301 = YH VERSION 
1387 005014 001000 1000 3M9301 = YE VERSION 
1388 005016 001000 1000 3M9301 = YJ VERSION 
1389 005020 001000 1900 3M9400 - YN VERSION 
1390 005022 001000 1000 3M9311 VERSION= REVISION A (SECOND VERSION) 
1391 005024 177777 -1 
1392 005026 177777 1 


a as we het 


17=APR=79 

005030 177777 
005032 177777 
005034 177777 


005036 177777 


005104 177777 
005106 177777 


005154 177777 
005156 177777 


17=APR=79 
10:12 


10: : PAGE 29 
TRAP 


TRMSA1: 


TDLN2: 


TRMSA2: 


TABLE 


165000 
165000 


2M9311 


YA VERSION 
YB VERSION 


° ERSION 
= YAC(OR YC) VERSION 
- ERSION 


YH(OR YK) VERSION 
VERSION REVISION * ( ORIGINAL VERSION) 
- YH VERSION 
- YE VERSION 
- YJ VERSION 
- YN VERSION 
VERSION REVISION A (SECOND VERSION) 


- YA VERSION 

- YB VERSION 

- YC VERSION 

~YA(OR YC) VERSION 

~YF VERSION 

- YB VERSION 

- YD VERSION 

- YH(OR YK) VERSION 

VERSION REVISION * (ORIGINAL REV.) 
- YH VERSION 

- YE VERSION 

- YJ VERSION 

- YN VERSION 

VERSION REVISION A (SECOND REV.) 


- YA VERSION 
- YB VERSION 
- YC VERSION 
- YA(OR YC) VERSION 
- YF VERSION 
- YB VERSION 


- YD VERSION 
- YH(OR YK) VERSION 


SEQ 01:28 


MAIN, MACY11 wendy 
CZM9AE .P11 


17=APR=79 


177777 
177777 
006106 


030122 


020103 


042412 
042524 
020103 


047503 
042105 
036440 


17=APR=79 
10:12 


020115 


035105 


050131 
020103 
035105 


050130 
020104 
020075 


050130 
020104 
020075 


050115 
041440 
020040 


TITL: 


GETCRC: 


GETLPC: 


EXCRMG: 


EXLPMG: 


ACCRMG: 


10:14 PAGE 30 
TRAP TABLE 


-ASCIZ 
-ASCIZ 


-ASCIZ 
eASCIZ 
eASCIZ 


VERSION REVISION * ( ORIGINAL REV.) 
- YH VERSION 

- YE VERSION 

- YJ VERSION 

- YN VERSION 

VERSION REVISION A ( SECUND REV.) 


YB VERSION 


YH VERSION 

- YE VERSION 

; - YJ VERSION 

[M9400 = YN VERSION 
; M9311 REVISION A ( SECOND REV.) 


<15><12>/ROM TEST/ 
<15><12>/TYPE CRC VALUE: 


<15><12>/TYPE LPC VALUE: 
<15><12>/EXPECTED CRC 
<15><12><12>/EXPECTED 


<15><12>/COMPUTED CRC 





-MAIN, MACY11 30A(1052) 17*APR=79 10:14 PAGE 31 
CZM9AE .P11 17=APR=79 10:12 TRAP TABLE 


12n2 015 ACLPMG: .ASCIZ <15><12>/COMPUTED LPC 
1507 

1508 

042116 EOTST: .ASCIZ <15><12><12>/END OF TEST/ 
042524 


050131 SA‘: eASCIZ =<15><12>/TYPE STARTING ADDR. OF 1ST ROM ADDR. SPACE: 


<15><12>/TYPE STARTING ADDR. OF 2ND ROM ADDR. SPACE: 


0351065 020040 
052012 050131 eASCIZ <15><12>/TYPE LENGTH (BYTES) OF 1ST ROM ADDR. SPACE: 


POMINMINININININNN @ 2 2 Ss SB a SS Se 


BIKAKUNYSBSSNRGRONVSSaNanewromos 


035105 020040 


Roselg 050131 ~ <15><72>/TYPE LENGTH (BYTES) OF 2ND ROM ADDR. 


: 
; 
1 
1 
1 
: 
: 
: 
1 
1 
1 
1 
; 
1 
} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
; 
: 
1 
1 
1 
1 
1 
1 


QV PPV DV SV VV SV SPV DV PSV SV SVS SV AV ST STA IAT ATT AIA ITT 


SW 
-0ow”o 


020056 
035105 020040 


000012 : .ASCIZ <15><12> 
000 : 


SPe: ASCIE ¢ / 
042104 : .ASCIZ <15><12>/ADDRESS 


000101 
SCI? #3 7 
oft AUTERM: .ASCIZ <15><12>/UNKNOWN MODULE / 
042514 000040 


005015 034515 030063 MSG1: eASCIZ =<15><12>/M9301 = YA/ 





-MAIN. MACY11 30A(1052) 
CZM9AE P11 17=APR=79 10 


020055 040531 


031471 MSG2: .ASCIZ <15><12>/M9301 
054440 


030063 MSG3: eASCIZ = <15><12>/M9301 
041531 


032071 MSGS: .ASCIZ <15><12>/M9400 
054440 
000 
031471 MSGS: .ASCIZ <15><12>/M9301 
026440 054440 


033515 032071 MSG6: .ASCIZ <i5><12>/M7942 
020055 041131 


046412 031471 MSG7: .ASCIZ <15><12>/M9301 = YD/ 
026440 054440 


034515 030064 MSG10: .ASCIZ <15><12>/M9400 = YH(OR YK)/ 
020055 044131 
020122 045531 


034515 030463 MSG11: .ASCIZ <15><12>/M9311 REVISION * (LOCATION E=5 = 23=524A9) / 


17=APR=79 10:14 PAGE 32 
212 TRAP TABLE SEQ 0031 


MSG12: .ASCIZ <15><12>/M9301 
054440 


034515 030063 MSG13: .ASCIZ <15><12>/M9301 
020055 042531 


046412 031471 MSG14: .ASCIZ <15><12>/M9301 
026440 054440 


034515 030064 MSG15: .ASCIZ <15><12>/M9400 = YN/ 
020055 047151 


Rees le 031471 MSGi6: .ASCIZ <15><12>/M9311 REVISION A (LOCATION E=5 = 23-688A9) / 


5 
020051 





G 3 
MAIN, MACY11 30A(1052) 17*APR=79 10:16 PAGE 34 
CZM9AE .P11 17=APR=79 10:12 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0032 


000000 9 
0054 30 150i@ 
0000 9 


1505@ 


584 
676* 699 708 750 780* 853 
677* 718 726 805 8128 





H 3 
-MAIN. MACY11_ 30A(1052) OL aetna 10:14 PAGE 35 


CZMOAE . P11 17=APR=79 10:12 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0033 
AUTERR 002612 852 8644 
AuT1 002524 8504 854 
AUT2 002570 857* 8594 
AUTS 2572 856 8604 
AVECT1= 0 569 
AVECT2= 569 
BITO = 1 4854 
BITOO = 000001 4754 485 
BITO1 = 2 4744 484 
BiTO2 = 4734 483 
BITO3 = 000010 4724 482 
BITO4 = 000020 4714 48] 
BITOS = 0 4704 480 
BITO6 = 000100 4694 479 
BITO7 = 000200 4684 478 
BITO8 = 00 4674 477 
BITO9 = 001000 4664 476 
BIT1 = 000002 4844 
BIT10 = 002000 4654 
B1T11 = 004000 4644 
BIT12¢ = 010000 4634 
BIT13 = 020000 4624 
BIT14 = 040000 4614 
BIT15 = 100000 4604 
BIT2 = 4834 
BIT3 = 000010 4824 
BITS = 000020 4814 
BITS = 0 4804 
BIT6 = 000100 4794 
BIT? = 000200 4784 
BIT8 = 00 477# 
1T9 = 001000 4764 
BPTVEC= 000014 4924 
CARLF 006015 832 837 15484 
CHECK 001510 642 644 646 6734 
CHO 001566 679 6864 
CH1 001644 688 697 6994 
CK1 001736 700 713 7184 862 
CK2 002030 719 731 7364 
CLLAST 002204 773 7754 
CLP 002252 7844 790 
CLP1 002264 8 7874 
CLP2 0902316 794 7964 
CLO 002702 7514 757 774 
CL1 002746 7654 
CL2 002170 762 7714 
CL3 002122 75 7584 
COLON 060 841 15554 
CR = 000015 4004 1099 1109 
CRC 002074 681 689 7504 
CRLF = 000200 4014 1070 1109 
DATLN1 0010U6 5234 638* 664* 678 683 818 
DATLN2 001012 5254 640* 672* 687 691 823 
DDISP = 177570 4074 609 
DISPLA 001002 S214 609* 617* 


i 2 
«MAIN. MACY11 30A(1052) 17=APR=79 10:14 PAGE 36 
CZM9AE P11 17=APR=79 10:12 CROSS REFERENCE TABLE == USER SYMBOLS 


177570 
3 


1329 1330 1331 


= 
— 
_— 


1253* 12546" 12638 1269* 12.18 282+ 


663 667 671 13314 


680 682 817 





MAIN. 


° 52) 
CZM9AE .P11 17=APR=79 10:12 


J 3 
17=APR=79 10:14 PAGE 37 
CROSS REFERENCE TABLE == USER SYMBOLS 


001010 668* 686 690 822 
005515 


MACY11 30A(10 


5944 


610 616* 623* 632* 633 
632 


657 
840 
025 


1283 


SEQ 0035 





MAIN. 


CZMSAE .P11 


MACY11 30A(10 
17=APR-79 10:1? 


xeKKERE 
xeeakan 


003235 


gretkane 


091032 
003422 


17=APR=79 
705 709 
13264 
13254 

511* 513* 
675 815 
820 8224 
8344 847 
835 8424 
833 8364 
759 7984 
5264 750* 
812 

553 5594 
1149 1164 
1120 11224 
11184 
1058 11194 
11214 

1075* 1085* 
1329 

598 

9724 

943 9714 
5844 

948 9694 
5754 

540 625 
5804 645 
5814 621 
5794 

565 5914 
572 594* 
1118* 1121* 
1078 11134 
11124 

1328 

5604 

1018* 10294 
1253 1269 
958 9704 
1159* 1165¢ 
561 565 
5614 

1119 1125 
9754 

577# §=11358 
5784 1140% 
5714 595* 
9734 

1080 11114 
1204* 12338 
11998 1203* 
5744 620* 
5634 

1284 12894 
602 1253 


723 


5324 


809 
771* 


1092 


10:14 PAGE 38 
CROSS REFERENCE TABLE == USEP SYMBOLS 


727 


647 


775 


1101* 


839 


673 


776* 


11064 


1053 


867s 


1222 


K 3 


843 


777* 


7448 
1053 


1155* 


1133 


12484 


13244 


(79% 780 799 80C* 


11418 891153 1157« 


801* 


802 


SEQ 0036 


805* 


-MAIN, MACY11 30A(1052) 17=APR=79 

CZM9AE P11 17=APR=79 10:12 

SPWRMG 004546 12844 

SPWRUP 004464 1263 12694 

SQUES 003224 951 9684 

SRDCHR 002640 8884 1329 

SRDDEC= seeeee 1332 

SRDLIN 002760 9164 1330 

$RDOCT 003264 9914 1331 

SRDSZ = 10 9094 

SR2EA = eeeeee 1332 

SSAVRE= teeee8 1332 

SSAVR6 004556 1262* 1270 

SSETUP= 000014 5104 599 

SSTUP = 177777 5104 

$SVPC = 001032 5384 543 

$SwR = 3894 1285 

SWREG 001070 5824 623 

STESTN 001052 5734 596* 

$TkB 002636 8744 892 

$TKS 26 8734 890 

$TPB 003710 1098* 11104 

STPFLG 003715 1047 11144 

STPS 003706 1096 11094 

STRAP 004570 600 13004 

STRAP2 004612 13114 1322 

S$TRP = 000010 13154 13244 

STRPAD 004624 1305 13224 

STSTM 001036 5624 

STTYIN 003214 918 919 

STYPBN= *teee8 UY 1327 

STYPDS= seeeee 1327 

STYPE 003424 10474 1146 

STYPEC 003636 1077 1084 

STYPEX 003704 1102 1104 

$TYPOC 004210 12024 1324 

STYPON 004224 1201 12044 

STYPOS 004164 11974 1325 

SUNIT 001060 5764 

SUNITM 001042 5644 

SUSWR = 001072 5834 

SOFILL 004407 1198* 1202* 

: = 006511 5004 50 
873 874 
1114 1115 

- SASTA= ekenee [J 1119 1122 

. Xx = 001032 5494 554 

- ABS. 006511 000 

ERRORS DETECTED: 0O 


ai a ‘wint SEQ/CRF/SOL/NL:T 
RUN~T SE CONDS 


38 3 


RUN-TIME ‘RATIO’ 350090" 4.7 


CORE USED: 32k 


(63 PAGES) 


10:14 PAGE 39 
CROSS REFERENCE TABLE == USER SYMBOLS 


1027 


1271* 
600 


898 


1030 


1272* 
602 


13264 


949 


1115 


12884 
604 


13274 


963 


1097 


OC=SYSMAC.SML ,CZM9AE P11 


i 2 


877 977 

1329 13304 13314 
9674 

538 5394 5414 
970 977 1030 


13324 


5434 
1109 


549 
1110 


50a 


5 
1111 


5S2@ 
1112 


SEQ 0037 


5544 
1113 


mM 3 
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